home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / timer.inc < prev    next >
Text File  |  1998-06-24  |  660b  |  36 lines
  1. pattern AddTime(_dest,_src) is
  2.     push a6;
  3.     safe a0:=_dest; a1:=_src;;
  4.     a6:=TimerBase; jsr [a6-42];
  5.     pop a6;
  6. endp;                                                            # ADDTIME
  7.  
  8. pattern SubTime(_dest,_src) is
  9.     push a6;
  10.     safe a0:=_dest; a1:=_src;;
  11.     a6:=TimerBase; jsr [a6-48];
  12.     pop a6;
  13. endp;                                                            # SUBTIME
  14.  
  15. pattern CmpTime(_dest,_src) is
  16.     push a6;
  17.     safe a0:=_dest; a1:=_src;;
  18.     a6:=TimerBase; jsr [a6-54];
  19.     pop a6;
  20. endp;                                                            # CMPTIME
  21.  
  22. pattern ReadEClock(_dest) is
  23.     push a6;
  24.     a0:=_dest;
  25.     a6:=TimerBase; jsr [a6-60];
  26.     pop a6;
  27. endp;                                                            # READECLOCK
  28.  
  29. pattern GetSysTime(_dest) is
  30.     push a6;
  31.     a0:=_dest;
  32.     a6:=TimerBase; jsr [a6-66];
  33.     pop a6;
  34. endp;                                                            # GETSYSTIME
  35.  
  36.